Public Class Curso
    Private mnombre As String
    Private mcodigo As String
    Private mesGrupal As Boolean

    Public Sub New()
    End Sub

    Public Sub New(ByVal pnombre As String, ByVal pcodigo As String, ByVal pesGrupal As Boolean)
        Me.Nombre = pnombre
        Me.Codigo = pcodigo
        Me.esGrupal = pesGrupal
    End Sub

    Public Property Nombre() As String
        Get
            Return mnombre
        End Get
        Set(ByVal Value As String)
            mnombre = Value
        End Set
    End Property

    Public Property Codigo() As String
        Get
            Return mcodigo
        End Get
        Set(ByVal value As String)
            mcodigo = value
        End Set
    End Property

    Public Property esGrupal() As Boolean
        Get
            Return mesGrupal
        End Get
        Set(ByVal value As Boolean)
            mesGrupal = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Dim info As String
        info = Me.Nombre
        info += Me.Codigo
        info += Me.esGrupal
        Return info
    End Function

End Class
